home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch13 / Sines.cls < prev    next >
Text File  |  1999-06-20  |  795b  |  35 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "DistortSines"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. Implements Distortion
  17.  
  18. ' The center about which to twist.
  19. Public amplitude As Single
  20. Public period As Single
  21.  
  22. ' Transform the point.
  23. Private Sub Distortion_Transform(X As Single, Y As Single, Z As Single)
  24. Dim A As Single
  25. Dim sy As Single
  26. Dim sz As Single
  27.  
  28.     A = amplitude / 2
  29.     sy = Sin(Y * 6.28 / period)
  30.     sz = Sin(Z * 6.28 / period)
  31.     X = X + A * (sy + sz)
  32. End Sub
  33.  
  34.  
  35.